home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_5 / pin391bs.lha / pine3.91 / Install_Pine < prev    next >
Text File  |  1995-05-31  |  3KB  |  132 lines
  1. (set pine-install "assign pine: ")
  2. (if
  3. (and
  4.   ( = (exists "libs:ixemul.library") 1)
  5.   ( < ( / (getversion "libs:ixemul.library") 65536) 40 ) )
  6.     (abort "You must have ixemul.library version >40.0 to run pine.")
  7. )
  8.  
  9. (set @pine-dest
  10.   (askdir
  11.     (prompt "Enter directory for installing pine")
  12.     (help @askdir-help)
  13.     (default "work3:pine3.91")
  14.   )
  15. )
  16.  
  17. (copyfiles
  18.     (prompt "Copying necessary files")
  19.     (source "")
  20.     (dest @pine-dest)
  21.     (help @copyfiles-help)
  22.     (all)
  23.     (infos)
  24. )
  25.  
  26. (set pine-install (cat pine-install @pine-dest) )
  27. (set pine-install (cat pine-install "\npath pine: add\n") )
  28.  
  29. (if ( = (exists "bin:" (noreq) )  2 )
  30.     (
  31.     (copyfiles
  32.         (prompt "Copying bin to bin:")
  33.         (source "bin")
  34.         (dest "bin:")
  35.         (confirm)
  36.         (help @copyfiles-help)
  37.         (all)
  38.     )
  39.  
  40.     (if ( = (exists "bin:csh" (noreq) )  1 )
  41.  
  42.         (debug "bin:csh exists")
  43.  
  44.         (copyfiles
  45.         (prompt "Copying bin/sh to bin:csh")
  46.         (source "bin/sh")
  47.         (dest "bin:csh")
  48.         (help @copyfiles-help)
  49.         )
  50.     )
  51.  
  52.     (delete (tackon @pine-dest "bin") )
  53.     )
  54.     (
  55.     (set pine-install (cat pine-install "assign bin: pine:bin\n") )
  56.     (copyfiles
  57.         (prompt "Copying bin/sh to bin/csh")
  58.         (source "bin/sh")
  59.         (dest (tackon @pine-dest "bin/csh") )
  60.         (help @copyfiles-help)
  61.     )
  62.     )
  63. )
  64.  
  65. (if ( = (exists "lib:" (noreq) )  2 )
  66.     (
  67.     (copyfiles
  68.         (prompt "Copying lib to lib:")
  69.         (source "lib")
  70.         (dest "lib:")
  71.         (confirm)
  72.         (help @copyfiles-help)
  73.         (all)
  74.     )
  75.  
  76.     (delete (tackon @pine-dest "lib") )
  77.     )
  78.     (set pine-install (cat pine-install "assign lib: pine:lib\n") )
  79. )
  80.  
  81. (if ( = (exists "etc:" (noreq) )  2)
  82.     (
  83.     (copyfiles
  84.         (prompt "Copying etc to etc:")
  85.         (source "etc")
  86.         (dest "etc:")
  87.         (help @copyfiles-help)
  88.         (confirm)
  89.         (all)
  90.     )
  91.  
  92.     (delete (tackon @pine-dest "etc") )
  93.     )
  94.     (set pine-install (cat pine-install "assign etc: pine:etc") )
  95. )
  96.  
  97. (debug "pine-install is" pine-install)
  98.  
  99. (startup "pine" pine-install
  100.     (prompt ("%s%s"
  101.         "Add the following lines to s:user-startup\n"
  102.         pine-install
  103.         )
  104.     )
  105.     (help @startup-help)
  106.     (command pine-install)
  107. )
  108.  
  109.  
  110. (if ( = (exists "env:TERM" (noreq) ) 0)
  111.     (
  112.     (message "Setting environment variable TERM to amiga")
  113.     (textfile
  114.         (dest "env:TERM")
  115.         (append "amiga")
  116.     )
  117.  
  118.     (message "Setting envarc:TERM to amiga")
  119.     (textfile
  120.         (dest "envarc:TERM")
  121.         (append "amiga")
  122.     )
  123.     )
  124.     (debug "env:term exists")
  125. )
  126.  
  127. (message "Installation complete. Please read the file pine.guide for information"
  128.      " on configuring and running Pine. Happy emailing"
  129. )
  130. (exit (quiet))
  131.  
  132.